home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / EASTER.BAS < prev    next >
BASIC Source File  |  1985-06-02  |  2KB  |  53 lines
  1. 10        CLS
  2. 20        REM
  3. 30        PRINT :PRINT :PRINT
  4. 40        PRINT TAB(33) "A SPECIAL PROGRAM"
  5. 50        PRINT :PRINT
  6. 60        PRINT TAB(21) "****** THE DATE OF EASTER  SUNDAY ******"
  7. 70        PRINT :PRINT
  8. 80        PRINT  TAB(33) "BY CHRIS SPRATT"
  9. 90        PRINT
  10. 100        PRINT TAB(35) " SEPT 1984"
  11. 101        PRINT TAB(35) "VICTORIA, BC"
  12. 110        PRINT
  13. 120        LOCATE  24,25
  14. 130        PRINT  "PRESS ANY KEY TO CONTINUE"
  15. 140       IF INKEY$ = "" THEN 140
  16. 150        CLS: PRINT :PRINT :PRINT :PRINT :
  17. 160   REM  --  THE DETERMINATION OF EASTER --
  18. 170   REM  BY CHRIS SPRATT  --  AUGUST 1984
  19. 180   REM  BULL. INST. MATH. VOL2 NO2 1966
  20. 190       LOCATE  5,29 :  INPUT "YEAR OF INTEREST "; Y
  21. 200       A = INT(((Y/19 - INT(Y/19)) * 19) +.5)
  22. 210       B = INT(Y/100)
  23. 220       C = INT(((Y/100 - INT(Y/100)) * 100) + .5)
  24. 230       D = INT (B/4)
  25. 240       E = INT (((B/4 -INT(B/4)) * 4) + .5)
  26. 250       G = INT (((8 * B) + 13)/25)
  27. 260       J = B - D - G
  28. 270       IF Y < 1583 THEN J = 30
  29. 280       H1 = INT(((11 * J) - 4)/30)
  30. 290       H2 = INT (((7 * A) + H1 + 6)/11)
  31. 300       HH = 19 * A + J + 15 - H2
  32. 310       H = INT (((HH/29 - INT (HH/29)) * 29) +.5)
  33. 320       I = INT (C/4)
  34. 330       K = INT(((C/4 - INT (C/4)) * 4) + .5)
  35. 340       LL = 32 + 2 * E + 2 * I - K - H
  36. 350       IF Y < 1583 THEN LL = 34 + B + 2 * I - H - K
  37. 360       L = INT (((LL/7 - INT (LL/7)) * 7) +.5)
  38. 370       N = INT (( 90 + H + L)/25)
  39. 380       PP = 19 + H + L + N
  40. 390       P = INT (((PP/32 - INT (PP/32 )) * 32) + .5)
  41. 400       PRINT :PRINT :PRINT :PRINT
  42. 410       IF N = 4 THEN N$="APRIL"
  43. 420       IF N = 3 THEN N$="MARCH"
  44. 430       CLS : PRINT :PRINT :PRINT :PRINT
  45. 440       PRINT TAB(20) "EASTER SUNDAY IN " ;Y;" IS ..."
  46. 450       PRINT  : PRINT : PRINT
  47. 460       PRINT TAB(30) N$; P
  48. 470       PRINT :PRINT :PRINT
  49. 480       PRINT TAB(20) : INPUT "DO YOU WANT ANOTHER YEAR Y/N";A$
  50. 490       IF A$ = "Y" THEN CLS: GOTO 190
  51. 500       IF A$ = "N" THEN GOTO 510
  52. 510       END
  53.